home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Recent Doc Max Number 1.xpl < prev    next >
Text File  |  2002-01-01  |  1KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start Menu\Common"
  5. "NAME"="Recent Documents (Maximum Number)"
  6. "VERSION"="3.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Maximum:"
  9. "DESCRIPTION 1"="Here you can specify how many shortcuts are created on the Documents menu on the Start Menu. By default, this is 15, but you can change this to any number you want."
  10. "DESCRIPTION 2"="To reset the option to its default value, clear the box."
  11. "AUTHOR"="Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "OSVERSION"="000111"
  15. "COMMENT 1"="Thanks to Ojatex [ojatex@aol.com] for the code for the Recent Docs Shortcuts setting!"
  16. "COMMENT 2"="For more information see http://www.winguides.com/registry/display.php/828/"
  17. "COMMENT 3"="Updated for WinXP by CptSiskoX.  Rock, paper, scissors, anyone?"
  18.  
  19.  
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\MaxRecentDocs"
  21.  
  22. SUB Plugin_Initialize
  23.  s=RegReadValue(sP)
  24.  Call SetUIElement(1,s)
  25. END SUB
  26.  
  27. SUB Plugin_CheckData(ElementIndex)
  28. END SUB
  29.  
  30. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  s=GetUIElement(1)
  32.  if Len(s)<=0 then
  33.     if RegValueExists(sP) then
  34.        Call RegDeleteValue(sP)
  35.     end if
  36.  else
  37.     Call RegWriteValue(sP,s,2)
  38.  end if
  39.  
  40.  Call Logoff()
  41. END SUB
  42.  
  43. SUB Plugin_Terminate
  44. END SUB
  45.